Dr. Windows 3/dr win3.zip/dr win3/UTILITY1/ATT302.ZIP/ALLTHETI.FRM

Text File | 1993-11-06 | 20KB | 697 lines

VERSION 2.00
Begin Form AllTheTime
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   0  'None
   Caption         =   "AllTheTime"
   ClientHeight    =   30
   ClientLeft      =   60
   ClientTop       =   330
   ClientWidth     =   810
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   FillColor       =   &H00C0C0C0&
   FillStyle       =   0  'Solid
   FontBold        =   0   'False
   FontItalic      =   0   'False
   FontName        =   "MS Sans Serif"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   465
   Icon            =   ALLTHETI.FRX:0000
   Left            =   -15
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   30
   ScaleWidth      =   810
   Top             =   -30
   Visible         =   0   'False
   Width           =   960
   Begin TextBox Text1
      Height          =   288
      Left            =   2016
      LinkTimeout     =   -1
      TabIndex        =   5
      Top             =   624
      Visible         =   0   'False
      Width           =   372
   End
   Begin PictureClip MoonSun
      Cols            =   5
      Location        =   "1200,2400,2250,5430"
      Picture         =   ALLTHETI.FRX:0302
      Rows            =   10
   End
   Begin SSFrame Frame3D1
      ForeColor       =   &H00000000&
      Height          =   195
      Left            =   15
      TabIndex        =   4
      Top             =   8160
      Width           =   135
      Begin SSOption Option3D1
         Alignment       =   1  'Right Justify
         Caption         =   "&3 - Bottom right"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   2
         Left            =   1920
         TabIndex        =   2
         Top             =   960
         Value           =   -1  'True
         Width           =   1575
      End
      Begin SSOption Option3D1
         Caption         =   "&5 - Elsewhere"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   4
         Left            =   1530
         TabIndex        =   6
         TabStop         =   0   'False
         Top             =   615
         Width           =   1575
      End
      Begin SSOption Option3D1
         Caption         =   "&1 - Upper left"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   0
         Left            =   105
         TabIndex        =   0
         TabStop         =   0   'False
         Top             =   255
         Width           =   1455
      End
      Begin SSOption Option3D1
         Alignment       =   1  'Right Justify
         Caption         =   "&2 - Upper right"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   1
         Left            =   1920
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   270
         Width           =   1575
      End
      Begin SSOption Option3D1
         Caption         =   "&4 - Bottom left"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   3
         TabStop         =   0   'False
         Top             =   960
         Width           =   1575
      End
   End
   Begin Image Delta
      Height          =   195
      Left            =   795
      Top             =   30
      Width           =   195
   End
   Begin Image StopWatch
      Height          =   195
      Left            =   570
      Top             =   30
      Width           =   195
   End
   Begin Image PrtStatus
      Height          =   240
      Left            =   510
      Top             =   10005
      Width           =   300
   End
   Begin Image PrtInactive
      Height          =   240
      Left            =   510
      Top             =   10080
      Width           =   285
   End
   Begin Image PrtActive
      Height          =   240
      Left            =   510
      Top             =   10080
      Width           =   300
   End
   Begin Image Picture1
      Height          =   225
      Left            =   30
      Top             =   30
      Width           =   240
   End
   Begin Image MoonPic
      Height          =   192
      Left            =   300
      Top             =   30
      Width           =   192
   End
   Begin Image SeasonPic
      Height          =   192
      Left            =   4080
      Top             =   30
      Width           =   192
   End
End
'DefInt A-Z
Const GroupFauxCompilerDirective = False

Sub Delta_Click ()
SoundABorted = True
End Sub

Sub Delta_DblClick ()
SoundABorted = True
'DblCFlag% = True

End Sub

Sub Delta_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
'Delta.Picture = MoonSun.GraphicCell(46)
Call Form_MouseDown(Button, Shift, X, Y)
If Button = 1 Then 'Left button
   If gDeltaRunning = 2 Then
      'start timer
      gResUser = GetFreeSystemResources(2) - (gStoppedResUser - gResUser)
      gResGDI = GetFreeSystemResources(1) - (gStoppedResGDI - gResGDI)
      gRes = GetFreeSystemResources(0) - (gStoppedRes - gRes)
      gTotMem = GetTotalMem() - (gStoppedTotMem - gTotMem)
      gBlkMem = GetBlockMem() - (gStoppedBlkMem - gBlkMem)
      Delta.Picture = MoonSun.GraphicCell(47)
      LastTime& = 0
      'FontChangedNotYetSized = True
      gDeltaRunning = 1
   Else
      'stop timer
      gStoppedResUser = GetFreeSystemResources(2)
      gStoppedResGDI = GetFreeSystemResources(1)
      gStoppedRes = GetFreeSystemResources(0)
      gStoppedTotMem = GetTotalMem()
      gStoppedBlkMem = GetBlockMem()
      LastTime& = 0
      Delta.Picture = MoonSun.GraphicCell(48)
      gDeltaRunning = 2
   End If
End If
If Button = 2 Then
      gResUser = GetFreeSystemResources(2)
      gResGDI = GetFreeSystemResources(1)
      gRes = GetFreeSystemResources(0)
      gTotMem = GetTotalMem()
      gBlkMem = GetBlockMem()
      gStoppedResUser = GetFreeSystemResources(2)
      gStoppedResGDI = GetFreeSystemResources(1)
      gStoppedRes = GetFreeSystemResources(0)
      gStoppedTotMem = GetTotalMem()
      gStoppedBlkMem = GetBlockMem()
      LastTime& = 0
End If


Exit Sub

If (gDeltaRunning = 0) Or (gDeltaRunning = 2 And Button = 2) Then
   If (gDeltaRunning = 0) Then
      gResUser = GetFreeSystemResources(2)
      gResGDI = GetFreeSystemResources(1)
      gRes = GetFreeSystemResources(0)
      gTotMem = GetTotalMem()
      gBlkMem = GetBlockMem()
   Else
      gResUser = GetFreeSystemResources(2) - (gStoppedResUser - gResUser)
      gResGDI = GetFreeSystemResources(1) - (gStoppedResGDI - gResGDI)
      gRes = GetFreeSystemResources(0) - (gStoppedRes - gRes)
      gTotMem = GetTotalMem() - (gStoppedTotMem - gTotMem)
      gBlkMem = GetBlockMem() - (gStoppedBlkMem - gBlkMem)
   End If
   gDeltaRunning = 1
   Delta.Picture = MoonSun.GraphicCell(47)
   LastTime& = 0
Else
   If gDeltaRunning = 1 Then
      gDeltaRunning = 2
      gStoppedResUser = GetFreeSystemResources(2)
      gStoppedResGDI = GetFreeSystemResources(1)
      gStoppedRes = GetFreeSystemResources(0)
      gStoppedTotMem = GetTotalMem()
      gStoppedBlkMem = GetBlockMem()
      LastTime& = 0
      Delta.Picture = MoonSun.GraphicCell(48)
   Else
      Delta.Picture = MoonSun.GraphicCell(45)
      gDeltaRunning = 0
      gResUser = 0
      gResGDI = 0
      gRes = 0
      gTotMem = 0
      gBlkMem = 0
      LastTime& = 0
   End If
End If


End Sub

Sub Delta_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseMove(Button, Shift, X, Y)
End Sub

Sub Delta_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_Mouse